#!/usr/bin/perl -w

package CaptivatorWrapper;

use lib '/usr/local/Captivator/lib';
use Captivator;

sub new {
        my $that  = shift;
        my $class = ref($that) || $that;
        my $self  = {
            _permitted => \%fields,
            %fields,
        };
        bless $self, $class;
        return $self;
}

sub rpc {
    my $self = shift;
    my $name = shift;
    goto &$name;    # Restart the new routine.
    return 0;
}

sub getlog {
    my $self = shift;
    return(`/usr/local/Captivator/bin/readlogs.pl`);
}

13;
